<!--#include file="funciones.asp"-->
<%
if request.Form<>"" then 

Dim sql
Dim sql1
Dim sql2

'	Set con=Server.CreateObject("ADODB.Connection")
'	con.Open "Provider=MSDASQL; DSN=seguimiento; UID=sa; PWD=seguimiento;"
	
sql2="select id_campos from protocolo_pruebas_datos where Proyecto_has_Tecnologia_id_proyecto_tecnologia='"&request.form("tecnologia")&"'"	


	set rs2=con.execute(sql2)
	
	if not (rs2.EOF and rs2.BOF) then
		resultados2=rs2.GetRows()
		
		For i=0 To Ubound(resultados2,2)
			
			sql1="update protocolo_pruebas_datos set dato='"&replace(request.Form("pruebas_"&resultados2(0,i)),chr(10),"<br>")&"', estado='"&request.Form("pruebasselect_"&resultados2(0,i))&"' where id_Campos='"&resultados2(0,i)&"' and Proyecto_has_Tecnologia_id_proyecto_tecnologia='"&request.form("tecnologia")&"'"
			con.execute(sql1)
		next
		
		
		
	end if
%> <script type="text/javascript">redir("campos_datos.asp?tecnologia=<%=request.Form("tecnologia")%>","m2",500);</script><%end if



%>